From: Jason Rumney Date: Sun, 10 Jan 2010 14:30:40 +0000 (+0800) Subject: * sieve-manage.el (sieve-manage-parse-capability-1): Loosely match OK response. X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~324^2~8753 X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=47c6f190784ead31c4b4e0cc1edb96569b52027e;p=emacs.git * sieve-manage.el (sieve-manage-parse-capability-1): Loosely match OK response. --- diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index 158e4b90c9a..a62660cade3 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -1,3 +1,8 @@ +2010-01-08 Jason Rumney + + * sieve-manage.el (sieve-manage-parse-capability-1): Loosely match OK + response. + 2010-01-06 Katsumi Yamaoka * gnus-art.el (gnus-article-describe-bindings): Work for prefix keys. diff --git a/lisp/gnus/sieve-manage.el b/lisp/gnus/sieve-manage.el index c40c6fc2cd9..2dcff055680 100644 --- a/lisp/gnus/sieve-manage.el +++ b/lisp/gnus/sieve-manage.el @@ -636,7 +636,7 @@ password is remembered in the buffer." sieve-manage-capability)) (push (list str) sieve-manage-capability)) (forward-line))) - (when (re-search-forward (concat "^OK" sieve-manage-server-eol) nil t) + (when (re-search-forward (concat "^OK.*" sieve-manage-server-eol) nil t) (setq sieve-manage-state 'nonauth))) (defalias 'sieve-manage-parse-greeting-1 'sieve-manage-parse-capability-1)